CD-ROM Today - The Disc! 5/CD-ROM Today - The Disc (Issue 5)(November 1994).ISO/mac/Mac shareware/Education/RLaB/toolbox/jordan.r

Text File | 1994-09-21 | 244 b | 10 lines | [TEXT/ttxt]

//
//JORDAN  JORDAN(N, LAMBDA) is the N-by-N Jordan block with eigenvalue LAMBDA.
//        LAMBDA = 1 is the default.

jordan = function(n, lambda)
{
  if(!exist (lambda)) { lambda = 1; }
  return ( lambda*eye(n,n) + diag(ones(n-1,1),1) );
};